home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
akcl1615.lha
/
lsp
/
doc-file.lsp
< prev
next >
Wrap
Text File
|
1988-04-24
|
825b
|
25 lines
(defun doc-file (file packages)
;;Write FILE of doc strings for all symbols in PACKAGES
;;This file is suitable for use with the find-doc function.
#+kcl
(and (member 'lisp packages)
(not (documentation 'setq 'function))
(load (format nil "~a../lsp/setdoc.lsp" si::*system-directory*)))
(with-open-file (st file :direction :output)
(sloop:sloop
for v in packages
do (setq v (if (packagep v) (package-name v) v))
do (sloop:sloop
for w in-package v
when (setq doc (documentation w 'function))
do (format st "F~a~%~ain ~a package:~a" w
(cond ((special-form-p w) "Special Form ")
((functionp w) "Function ")
((macro-function w) "Macro ")
(t ""))
v
doc)
when (setq doc (documentation w 'variable))
do (format st "V~a~%Variable in ~a package:~a" w v doc)
))))